home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / spectrum.sfx / 40 x 25 editor (.txt) < prev    next >
Commodore BASIC  |  1992-09-01  |  1KB  |  65 lines
  1. 4 X=0:K=0:C=3
  2. 5 POKE53280,0:POKE53281,0
  3. 6 DIM C(1000)
  4. 80 POKE 53280,0:POKE53281,0
  5. 82 PRINT"[147]"
  6. 90 PRINT"PLEASE INSERT DATA DISK.":INPUT"FILENAME?";N$
  7. 91 PRINT"[147]":OPEN 6,8,6,"0:"+N$+",S,R":GOTO 300
  8. 92 FOR Q=55296TO56295
  9. 93 INPUT#6,L:POKEQ,L:NEXTQ
  10. 94 CLOSE 6
  11. 95 FOR R=1024TO2023:POKER,160:NEXTR
  12. 100 GET A$:CLOSE6
  13. 101 POKE1024+X,81:POKE55296+X,C
  14. 102 POKE1024+X,160:POKE55296+X,K
  15. 103 IF A$="I" THEN X=X-40
  16. 104 IF A$="M" THEN X=X+40
  17. 105 IF A$="K" THEN X=X+1
  18. 106 IF A$="J" THEN X=X-1
  19. 107 IF X>999 THEN X=999:IFX<0THENX=0
  20. 108 IF A$=" " THEN POKE 55296+X,C
  21. 109 K=PEEK(55296+X)
  22. 110 IF A$="_" THEN C=0
  23. 111 IF A$="1" THEN C=1
  24. 112 IF A$="2" THEN C=2
  25. 113 IF A$="3" THEN C=3
  26. 114 IF A$="4" THEN C=4
  27. 115 IF A$="5" THEN C=5
  28. 116 IF A$="6" THEN C=6
  29. 117 IF A$="7" THEN C=7
  30. 118 IF A$="8" THEN C=8
  31. 119 IF A$="9" THEN C=9
  32. 120 IF A$="0" THEN C=10
  33. 121 IF A$="+" THEN C=11
  34. 122 IF A$="-" THEN C=12
  35. 123 IF A$="\" THEN C=13
  36. 124 IF A$="Q" THEN C=14
  37. 125 IF A$="W" THEN C=15
  38. 126 IF A$="S" THEN 201
  39. 128 IF A$="X" THEN 1900
  40. 129 IF A$="Z" THEN SYS 64738
  41. 130 IF A$="[147]" THEN PRINT"[147]"
  42. 200 GOTO 100
  43. 201 GOSUB 800:OPEN 6,8,6,"0:"+N$+",S,W"
  44. 202 FOR Q=55296 TO 56295:L=PEEK(Q)
  45. 203 PRINT#6,L:NEXT
  46. 204 CLOSE 6
  47. 205 GOTO 100
  48. 300 OPEN 15,8,15:INPUT#15,ZA,ZB$
  49. 301 PRINTZA,ZB$:IFZA=62 THEN GOSUB 320
  50. 302 GOTO 92
  51. 306 PRINT"[147]":GOTO 100
  52. 320 PRINT"MAKE A NEW FILE (Y/N)?"
  53. 322 GET R$:IFR$="Y" THEN RETURN
  54. 324 IF R$="" THEN 322
  55. 326 RUN
  56. 800 CLOSE15:OPEN15,8,15,"S0:"+NM$
  57. 802 CLOSE 15
  58. 803 RETURN
  59. 1900 REM
  60. 2000 POKE198,4
  61. 2010 PRINT"LOAD"CHR$(34)"SPECTRUM V1.0";
  62. 2020 PRINTCHR$(34)",8";
  63. 2030 POKE631,13:POKE632,82:POKE633,117:POKE634,13
  64. 2040 END
  65.